#!/usr/bin/env ruby

# ---------------------------------------------------------------------------- #
# Copyright 2002-2023, OpenNebula Project, OpenNebula Systems                  #
#                                                                              #
# Licensed under the Apache License, Version 2.0 (the "License"); you may      #
# not use this file except in compliance with the License. You may obtain      #
# a copy of the License at                                                     #
#                                                                              #
# http://www.apache.org/licenses/LICENSE-2.0                                   #
#                                                                              #
# Unless required by applicable law or agreed to in writing, software          #
# distributed under the License is distributed on an "AS IS" BASIS,            #
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.     #
# See the License for the specific language governing permissions and          #
# limitations under the License.                                               #
# ---------------------------------------------------------------------------- #

ONE_LOCATION ||= ENV['ONE_LOCATION']

if !ONE_LOCATION
    RUBY_LIB_LOCATION ||= '/usr/lib/one/ruby'
    GEMS_LOCATION     ||= '/usr/share/one/gems'
else
    RUBY_LIB_LOCATION ||= ONE_LOCATION + '/lib/ruby'
    GEMS_LOCATION     ||= ONE_LOCATION + '/share/gems'
end

# %%RUBYGEMS_SETUP_BEGIN%%
if File.directory?(GEMS_LOCATION)
    real_gems_path = File.realpath(GEMS_LOCATION)
    if !defined?(Gem) || Gem.path != [real_gems_path]
        $LOAD_PATH.reject! {|l| l =~ /vendor_ruby/ }

        # Suppress warnings from Rubygems
        # https://github.com/OpenNebula/one/issues/5379
        begin
            verb = $VERBOSE
            $VERBOSE = nil
            require 'rubygems'
            Gem.use_paths(real_gems_path)
        ensure
            $VERBOSE = verb
        end
    end
end
# %%RUBYGEMS_SETUP_END%%

$LOAD_PATH << RUBY_LIB_LOCATION
$LOAD_PATH << File.dirname(__FILE__)

require 'vcenter_driver'

CONFIG = VCenterConf.new

vm_ref          = ARGV[0]
vc_cluster_name = ARGV[1]
vm_id           = ARGV[2]

drv_action_enc = STDIN.read.delete("\n")
drv_action = OpenNebula::XMLElement.new
drv_action.initialize_xml(Base64.decode64(drv_action_enc),
                          'VMM_DRIVER_ACTION_DATA')

host_id = drv_action['VM/HISTORY_RECORDS/HISTORY/HID']

lcm_state = drv_action['/VMM_DRIVER_ACTION_DATA/VM/LCM_STATE']
check_valid(lcm_state, 'lcm_state')
lcm_state_str = OpenNebula::VirtualMachine::LCM_STATE[lcm_state.to_i]

if !%('SAVE_MIGRATE', 'SHUTDOWN', 'SHUTDOWN_POWEROFF', \
       'SHUTDOWN_UNDEPLOY').include?(lcm_state_str)
    STDERR.puts "Wrong lcm state #{lcm_state_str} when shutting down VM"
    exit(-1)
end

begin
    retries ||= 0
    vi_client = VCenterDriver::VIClient.new_from_host(host_id)

    if vm_ref.empty?
        one_vm = VCenterDriver::VIHelper.one_item(OpenNebula::VirtualMachine,
                                                  vm_id)
        host = OpenNebula::Host.new_with_id(host_id, OpenNebula::Client.new)
        vcenter_vm = VCenterDriver::VIHelper.find_vcenter_vm_by_name(one_vm,
                                                                     host,
                                                                     vi_client)
        raise "Couldn't find the VM in vCenter by it's name" unless vcenter_vm

        vm_ref = vcenter_vm._ref
    end

    vm = VCenterDriver::VirtualMachine.new(vi_client, vm_ref, vm_id)

    vm.shutdown # Undeploy, Poweroff or Terminate

    if lcm_state_str == 'SHUTDOWN_UNDEPLOY'
        vm.mark_as_template
    end
rescue StandardError => e
    message = "Shutdown of VM #{vm_ref} on vCenter cluster #{vc_cluster_name} "\
              "failed due to \"#{e.message}\" on attempt \##{retries}"
    OpenNebula.log_error(message)
    if VCenterDriver::CONFIG[:debug_information]
        STDERR.puts "#{message} #{e.backtrace}"
    end
    sleep CONFIG[:retry_interval].to_i
    retry if retries < CONFIG[:retries]

    exit(-1)
ensure
    vi_client.close_connection if vi_client
end
